Shareware Grab Bag/Shareware Grab Bag.iso/003/db2ios.arc/PRINT.INV

Text File | 1983-01-04 | 1.5 KB | 54 lines

* PRINT.INV
* prints inventory of volume
IF change1 = t
    STORE 'Yes' TO mchange1
ELSE
    STORE ' No' TO mchange1
ENDIF change1
IF change2 = t
    STORE 'Yes' TO mchange2
ELSE
    STORE ' No' TO mchange2
ENDIF change2
    SET FORMAT TO PRINT
    EJECT
    @  3,26 SAY "SIG-M VOLUME"
    @  3,39 SAY disk
    @  5,14 SAY "Opening Inventory"
    @  5,33 SAY open:inv
    @  5,46 SAY "Description of Volume"
    @  7,19 SAY "Back Ordered"
    @  7,33 SAY back:ord
    @  7,46 SAY line1
    @  8,15 SAY "Waiting Shipment"
    @  8,33 SAY wait:ship
    @  8,46 SAY line2
    @  9,14 SAY "Quantity Received"
    @  9,33 SAY recvd
    @ 10,14 SAY "Closing Inventory"
    @ 10,33 SAY STR(open:inv-back:ord-wait:ship+recvd,3,0)
    @ 10,45 SAY "Change  in  Inventory"
    @ 10,70 SAY mchange1
    @ 11,46 SAY "Date"
    @ 11,53 SAY daych1
    @ 11,64 SAY "No: "
    @ 11,70 SAY ship
    @ 12,19 SAY "Normal Stock"
    @ 12,33 SAY norm:stk
    @ 13,14 SAY "Quantity to Order"
    @ 13,33 SAY order
    @ 13,45 SAY "Change in Backorders"
    @ 13,70 SAY mchange2
    @ 14,15 SAY "Quantity Ordered"
    @ 14,33 SAY pend
    @ 14,46 SAY "Date"
    @ 14,53 SAY daych2
    @ 14,64 SAY "No: "
    @ 14,70 SAY backship
    @ 16,10 SAY "Anticipated Inventory"
    @ 16,33 SAY STR(open:inv-back:ord-wait:ship+recvd+pend,3,0)
    @ 17,51 SAY "Update:"
    @ 17,59 SAY dayu
    @ 52,00 SAY ' '
    SET FORMAT TO SCREEN